home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / gnuplotMode.tcl < prev    next >
Encoding:
Text File  |  2001-01-04  |  68.5 KB  |  2,395 lines
  1. ## -*-Tcl-*- (nowrap)
  2.  # ==========================================================================
  3.  # 
  4.  # "gnuplotMode.tcl"
  5.  #                                    created: 08/01/95 {07:59:36 pm}
  6.  #                                last update: 01/04/2001 {22:39:24 PM}
  7.  #  Author: Jeff Schindall
  8.  #  E-mail: <mailto:schindall@nrl.navy.mil>
  9.  #    mail: Naval Research Laboratory
  10.  #          Acoustics Division --- Code 7120
  11.  #          4555 Overlook Ave SW
  12.  #          Washington, DC, 20375 USA ]
  13.  # 
  14.  # gnuplotMode.tcl, Version 2.0       For  gnuplot 3.6
  15.  # 
  16.  # This is a set of TCL proc's that allow the shareware Macintosh
  17.  # text editor Alpha to serve as a front end for GNUPLOT for
  18.  # Macintosh version 3.6. This script requires Alpha 7.4 or later.
  19.  # 
  20.  # This mode was written by Jeff Schindall.  Some code was pinched from
  21.  # other TCL files distributed with Alpha and matlab.tcl.
  22.  # 
  23.  # Just use 'shift-ctrl-g' to launch a gnuplot console
  24.  # 
  25.  # (Note: Vince updated this file for use with Alpha 7.1b10)
  26.  # (Note: Craig updated this file for use with Alpha 7.4)
  27.  # ==========================================================================
  28.  ##
  29.  
  30. # ===========================================================================
  31. #
  32. # Autoload procedures
  33. #
  34.  
  35. alpha::mode GPLT 2.0.1 gnuplotMenu {*.gp *.gnu *.gnp *.gplt *.GP *.GNU *.GNP *.GPLT} {
  36.     gnuplotMenu electricReturn electricTab
  37. } {
  38.     # We require 7.4b21 for prefs handling.
  39.     alpha::package require AlphaTcl 7.4b21
  40.     addMenu gnuplotMenu "•415" GPLT
  41.     set modeCreator(GPLT) GPLT
  42.     set modeCreator(GPSE) GPLT
  43.     newPref sig GnuplotSig GPLT
  44. } help {
  45.     Gnuplot is a command-line driven interactive function plotting utility
  46.     for UNIX, MSDOS, and VMS platforms.  The software is copyrighted but
  47.     freely distributed (i.e., you don't have to pay for it).  It was
  48.     originally intended as a graphical program which would allow scientists
  49.     and students to visualize mathematical functions and data.
  50.  
  51.                         -- <http://www.cs.dartmouth.edu/gnuplot_info.html>
  52.  
  53.     Gnuplot Mode serves as a front end for GNUPLOT for Macintosh version
  54.     3.6.  Alpha acts as Gnuplot's console window.  You can activate the
  55.     console with cmd-1 or using the Console menu item in Alpha's Gnuplot
  56.     menu.  When in console mode you have access to Gnuplot's built-in help.
  57.  
  58.     A simple floating menu lists all text files in the scripts directory of
  59.     gnuplot home dir.  To run a script, just select it from the scripts
  60.     menu.  To edit a script in Alpha, select a script menu item while
  61.     holding down a modifier key (shift, option, command, OR ctrl). 
  62.  
  63.     Modify some of the GPLT mode behaviour by choosing the menu item:
  64.  
  65.     "Config --> Mode Prefs --> Preferences"
  66.  
  67.     FOR 68K USERS ONLY
  68.  
  69.     Recent versions of Alpha (< 6.2) do not have a fully working
  70.     eventHandler procedure.  Thus, you might notice strange behavior in the
  71.     gnuplot console.  The symptoms of the problem are that a new gnuplot
  72.     prompt may not be displayed on the screen after pressing a carriage
  73.     return; or, longer messages may be garbled.
  74.  
  75.     Try the following:
  76.  
  77.     set term post
  78.     plot sin(x)
  79.  
  80.     If you see pages of postscript output, then the eventHandler is
  81.     apparently working.
  82.  
  83.     Keep an eye out for the latest versions of Alpha which will eventually
  84.     solve this problem.
  85.  
  86.     Comments, suggestions, and bug reports should be sent to Jeff at
  87.  
  88.         <jeff@wave.nrl.navy.mil>
  89. }
  90.  
  91. proc gnuplotMenu {} {}
  92.  
  93. namespace eval GPLT {}
  94.  
  95. hook::register mode::init              GPLT::graphButton          GPLT
  96. hook::register mode::editPrefsFile     GPLT::editCurrentModePrefs GPLT
  97. hook::register dialog::modifyModeFlags GPLT::modifyModeFlags      GPLT
  98. hook::register closeHook               GPLT::closeHook            GPLT
  99. hook::register deactivateHook          GPLT::deactivateHook       GPLT
  100. hook::register activateHook            GPLT::activateHook         GPLT
  101.  
  102. # ===========================================================================
  103. #
  104. # ◊◊◊◊ GPLT mode preferences ◊◊◊◊ #
  105. # 
  106.  
  107. # ===========================================================================
  108. #
  109. # remove unused, previously saved preferences
  110. # 
  111.  
  112. # remove unused, previously saved preferences
  113. # 
  114.  
  115. foreach oldvar [list FSIG CREA TYPE] {
  116.     prefs::removeObsolete GPLTmodeVars($oldvar)
  117. }
  118.  
  119. # ===========================================================================
  120. #
  121.  
  122. # ===========================================================================
  123. #
  124. # Standard preferences recognized by various Alpha procs
  125. #
  126.  
  127. newPref var  prefixString {# } GPLT
  128. newPref var  tabSize {3} GPLT
  129. newPref var  prefixString {# } GPLT
  130. newPref var  wordBreak {[a-zA-Z0-9_]+} GPLT
  131. newPref var  wordBreakPreface {[^a-zA-Z0-9_]} GPLT
  132. newPref flag wordWrap {0} GPLT
  133.  
  134. # ===========================================================================
  135. #
  136. # Flag preferences
  137. #
  138.  
  139. newPref flag NevrSavHist {0} GPLT
  140. newPref flag LiveHist {1} GPLT
  141. newPref flag GraphButton {1} GPLT
  142. newPref flag EventHandler {1} GPLT
  143.  
  144. # ===========================================================================
  145. #
  146. # Variable preferences
  147. #
  148.  
  149. # The "Gnuplot Home Page" menu item will send this url to your browser.
  150. newPref url gnuplotHomePage      {http://www.cs.dartmouth.edu/gnuplot_info.html}      GPLT
  151.  
  152. # ===========================================================================
  153. #
  154. # Color preferences
  155. #
  156.  
  157. newPref color bracesColor blue   GPLT  {GPLT::colorizeGPLT}
  158. newPref color commandColor blue  GPLT  {GPLT::colorizeGPLT}
  159. newPref color commentColor red   GPLT  {stringColorProc}
  160. newPref color stringColor green  GPLT  {stringColorProc}
  161.  
  162. regModeKeywords -e {#} \
  163.   -c $GPLTmodeVars(commentColor) \
  164.   -s $GPLTmodeVars(stringColor) GPLT {}
  165.   
  166. ### Commands ###
  167.  
  168. set gpCommands { 
  169.     \\ console set show plot splot autoscale binary boxxyerrorbars bugs
  170.     call cd clear co-ordinates comments environment exit expressions fit if
  171.     introduction line-editing load pause plot print pwd quit replot reread
  172.     reset save seeking-assistance set shell show splot startup style
  173.     substitution test update userdefined xyerrorbars xerrorbars yerrorbars
  174.  
  175.     "Copyright(C) 1986 - 1997" 
  176.     "Copyright(C) 1986 - 1998"
  177.     "Copyright(C) 1986 - 1999"
  178.     "Copyright(C) 1986 - 2000"
  179.     "Copyright(C) 1986 - 2001"
  180. }
  181.  
  182. ### GREEN WORDS ###
  183.  
  184. set gpGreenWords {
  185.     ranges         smooth         data-file      datafile
  186.     parametric     locale         nosquare       errorbars
  187.     gnuplot        gnuplot>       term           square
  188.     angles         arrow          autoscale      bar
  189.     bmargin        border         boxwidth       clabel
  190.     clip           cntrparam      contour        data
  191.     dgrid3d        dummy          encoding       format
  192.     function       grid           hidden3d       isosamples
  193.     key            keytitle       label          lmargin
  194.     logscale       mapping        margin         missing
  195.     multiplot      mx2tics        mxtics         my2tics
  196.     mytics         mztics         noarrow        noautoscale
  197.     noborder       noclabel       noclip         nodgrid3d
  198.     nokey          nolabel        nologscale     nomultiplot
  199.     nomx2tics      nomxtics       nomy2tics      nomytics
  200.     nomztics       noparametric   nopolar        nosurface
  201.     nox2dtics      nox2mtics      nox2tics       nox2zeroaxis
  202.     noxdtics       noxmtics       noxtics        noxzeroaxis
  203.     noy2dtics      noy2mtics      noy2tics       noy2zeroaxis
  204.     noydtics       noymtics       noytics        noyzeroaxis
  205.     nozdtics       nozeroaxis     nozmtics       noztics
  206.     offsets        origin         output         parametric
  207.     pointsize      polar          punctuation    rmargin
  208.     rrange         samples        size           specify
  209.     style          surface        syntax         terminal
  210.     tics           ticscale       ticslevel      time
  211.     timefmt        title          tmargin        trange
  212.     urange         view           vrange         x2dtics
  213.     x2label        x2mtics        x2range        x2tics
  214.     x2zeroaxis     xdata          xdtics         xlabel
  215.     xmtics         xrange         xtics          xzeroaxis
  216.     y2dtics        y2label        y2mtics        y2range
  217.     y2tics         y2zeroaxis     ydtics         ylabel
  218.     ymtics         yrange         ytics          yzeroaxis
  219.     zdtics         zero           zeroaxis       zlabel
  220.     zmtics         zrange         ztics
  221.     threaded
  222. }
  223.  
  224. ### CYAN WORDS ###
  225.  
  226. set gpCyanWords  {   
  227.     post mac     macintosh      texdraw
  228.     aifm           atari          dumb           enhpost
  229.     epson          epson180       epson60        fig
  230.     gpic           hpljii         imagen         iris4d
  231.     latex          linux          mf             mif
  232.     mtos           nec-cp6        pbm            pcl5
  233.     postscript     pslatex        regis          starc
  234.     table          tandy60        tgif           uniplex
  235.     vdi            windows        unknown        pstricks
  236.     png            dxf            cgm            gif
  237.     emtex          pstex          eepic          tpic
  238.     pstricks       texdraw
  239. }
  240.  
  241. # ===========================================================================
  242. #
  243. #
  244. # Color keywords for GPLT mode
  245. #
  246.  
  247. proc GPLT::colorizeGPLT {{pref ""}} {
  248.     
  249.     global GPLTmodeVars gpCommands gpGreenWords gpCyanWords GPLTcmds
  250.     
  251.     set GPLTcmds [lsort [lunique [concat \
  252.       $gpCommands $gpGreenWords $gpCyanWords \
  253.       ]]]
  254.  
  255.     regModeKeywords -a \
  256.       -i "\}" -i "\{"  -i ">" -i "<" -i ")" -i "("  -i "/" -I "\\"  \
  257.       -i "\]" -i "\[" -i "\$" -i "\'" -i "\`" -i ">" -i "<" -i "^" -i "_" \
  258.       -I $GPLTmodeVars(bracesColor) \
  259.       -k $GPLTmodeVars(commandColor) GPLT $gpCommands
  260.     regModeKeywords -a -k green GPLT $gpGreenWords
  261.     regModeKeywords -a -k cyan  GPLT $gpCyanWords
  262.     if {$pref != ""} {refresh}
  263. }
  264.  
  265. # Call this now.
  266.  
  267. GPLT::colorizeGPLT
  268.  
  269. # ===========================================================================
  270. #
  271. #  global variables
  272. #
  273.  
  274. ensureset gp_CREA                  {ALFA}
  275. ensureset gp_TYPE                  {TEXT}
  276. ensureset gp_CreatorList [list] 
  277. ensureset gp_TypeList [list] 
  278. ensureset gp_CreatorNames [list] 
  279. ensureset gp_GEOM [list]
  280. ensureset gp_HistGEOM [list ]
  281. ensureset headerSuffices {$GPLTmodeSuffixes}
  282. ensureset sourceSuffices {$GPLTmodeSuffixes}
  283.  
  284. if {[llength $gp_CreatorList] == 0 \
  285.  || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  286.  || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  287.     set gp_CreatorList [list ALFA GPLT]
  288.     set gp_TypeList [list  TEXT TEXT]
  289.     set gp_CreatorNames [list  alpha gnuplot]
  290.     set gp_CREA {ALFA} 
  291.     set gp_TYPE {TEXT}
  292. }
  293.  
  294. set gp_CommandHist [list]
  295. set gp_CommandNum 0
  296.  
  297. set gp_Prompt       "gnuplot> "
  298. set gp_MultiPrompt  "multiplot> "
  299. set gp_ContPrompt   "> "
  300. set gp_HelpPrompt   ": "
  301.  
  302. set gp_Prompts [list $gp_Prompt $gp_ContPrompt $gp_MultiPrompt ]
  303.  
  304. set gp_Console  "  gnuplot  "
  305. set gp_Hist     "  history  "
  306. set gp_Graph     "  graph  "
  307. set gp_sl [list]
  308.  
  309. set gpTermCt 0
  310.  
  311. set gp_Launched {0}
  312.  
  313. # ===========================================================================
  314. # 
  315. # ◊◊◊◊ Key Bindings, Electrics ◊◊◊◊ #
  316. # 
  317.  
  318. # ===========================================================================
  319. #
  320. #  Bind some keys
  321. #
  322.  
  323. # Editing .gnu files
  324.  
  325. Bind '\r' <z>  GPLT::doLine             "GPLT"
  326.  
  327. # Command Window
  328.  
  329. Bind '\r'      GPLT::carriageReturn     "GPLT"
  330. Bind up        GPLT::prevCommand        "GPLT"
  331. Bind down      GPLT::nextCommand        "GPLT"
  332. Bind '1'  <z>  GPLT::console            "GPLT"
  333. Bind '2'  <z>  GPLT::activate           "GPLT"
  334. Bind '3'  <z>  GPLT::dumpHistory        "GPLT"
  335. Bind 'f'  <sc> GPLT::saveAndExecute     "GPLT"
  336.  
  337. # Setting the order of precedence for completions.
  338.  
  339. set completions(GPLT) {
  340.     completion::cmd completion::electric completion::word
  341. }
  342.  
  343. set GPLTelectrics(plot)   " \[••:••\] \[••:••\] ••\r••"
  344. set GPLTelectrics(set)    " •• \[••: ••\]••\r••"
  345. set GPLTelectrics(pause)  " •• \"••\"\r••"
  346.  
  347. # ===========================================================================
  348. #
  349. #  Carriage return for command window
  350. #
  351.  
  352. proc GPLT::carriageReturn {} {
  353.     global gp_CommandHist gp_CommandNum  gp_Console gp_Hist gp_Graph
  354.     
  355.     # enter only if cr in console window...
  356.     set wins [winNames]
  357.     if { [lsearch $wins $gp_Console ]  == 0  } {
  358.     setWinInfo -w $gp_Console dirty 0
  359.     set pos [getPos]
  360.  
  361.     # I look for > and : instead of the proper prompts... Hmmm...
  362.     # if -1 then we are not on an input line...
  363.     # or we could be waiting for a pause...
  364.     # which should be on the last line...
  365.     set ind [string first ">" [getText [lineStart $pos] $pos] ]
  366.     if {$ind < 0} {
  367.         set ind [string first ":" [getText [lineStart $pos] $pos] ]
  368.         if {$ind < 0} {
  369.         endOfBuffer
  370.         # just send a cr to the server
  371.         insertText "\r"
  372.         GPLT::sendCommand [getText [lineStart $pos] $pos] 400
  373.         return
  374.         }
  375.     }
  376.     set lStart [pos::math [lineStart $pos]+ [expr $ind+2]]
  377.     endOfLine
  378.     set lEnd  [getPos]
  379.     set scriptName [getText $lStart $lEnd]
  380.     insertText "\r"
  381.     # if not on last line, then replace text on last line...
  382.     GPLT::sendCommand "$scriptName"  102
  383.     } elseif {[lsearch $wins $gp_Hist ] == 0} {
  384.     # execute the current command in the history window...
  385.     GPLT::histgotoMatch
  386.     } else {
  387.     insertText "\r"
  388.     }
  389. }
  390.  
  391. # ===========================================================================
  392. # 
  393. # ◊◊◊◊ Command Double Click ◊◊◊◊ #
  394. # 
  395. # In GNUc mode, cmd-double-click highlights area btween consecutive
  396. # gnuplot prompts
  397. #
  398.  
  399. proc GPLT::DblClick {from to} {
  400.     
  401.     global gp_Prompts
  402.     
  403.     # First find "gnuplot> " prompt above and below cursor entry...
  404.     # don't forget to deal with "multiplot> " and "> "
  405.     
  406.     set gp1 [list]
  407.     foreach gp $gp_Prompts {lappend gp1 [search -n -f 0 -r 1 $gp $from] }
  408.     set firstmatch [lindex [lindex $gp1 0 ] 0]
  409.     foreach el $gp1 {
  410.     if {[pos::compare [lindex $el 1] > $firstmatch]} {
  411.         set firstmatch [lindex $el 0]
  412.     }
  413.     }
  414.     
  415.     if {$firstmatch == {}} {
  416.     message "You are not between prompts"
  417.     return
  418.     } else {
  419.  
  420.     set firstmatch [nextLineStart $firstmatch]
  421.     endOfBuffer
  422.     set lastmatch [getPos ]
  423.     set gp1 [list]
  424.     foreach gp $gp_Prompts {lappend gp1 [search -n -f 1 -r 1   $gp $from] }
  425.     foreach el $gp1 {
  426.         if {[lindex $el 1]!={} && [pos::compare [lindex $el 0] < $lastmatch] } {
  427.         set lastmatch $el
  428.         }
  429.     }
  430.     if {$lastmatch == {}} {
  431.         message "You are not between prompts"
  432.         return
  433.     } else {
  434.         
  435.         goto $lastmatch
  436.         beginningOfLine
  437.         select $firstmatch [getPos]
  438.     }
  439.     }
  440. }
  441.  
  442. # ===========================================================================
  443. #
  444. # ◊◊◊◊ Mark File ◊◊◊◊ #
  445. # 
  446.  
  447. proc GPLT::MarkFile {{type ""}} {
  448.     
  449.     message "Marking File …"
  450.     
  451.     set count 0
  452.     set markExpr {^plot([\t ]+\[)}
  453.     # Mark the file
  454.     set pos [minPos]
  455.     while {![catch {search -s -f 1 -r 1 -m 0 -i 1 $markExpr $pos} match]} {
  456.     incr count
  457.     set posBeg [lindex $match 0]
  458.     set posEnd [nextLineStart $posBeg]
  459.     if {[pos::math $posEnd > [maxPos]]} {set posEnd [maxPos]} 
  460.     set line   [string trimright [getText $posBeg $posEnd]]
  461.     # Get rid of braces.
  462.     regsub -all {\{|\[} $line {(} line
  463.     regsub -all {\}|\]} $line {)} line
  464.     if {[string length $line] > 35} {
  465.         set line "[string range $line 0 35] ..."
  466.     } 
  467.     setNamedMark $line $posBeg $posBeg $posBeg
  468.     set pos $posEnd
  469.     }
  470.     message "This file contains $count plot commands."
  471. }
  472.  
  473. # ◊◊◊◊ --------------------• ◊◊◊◊ #
  474.  
  475. # ===========================================================================
  476. # 
  477. # ◊◊◊◊ Gnuplot Menu Definition ◊◊◊◊ #
  478. # 
  479.  
  480. # ===========================================================================
  481. #
  482. #  gnuplot Menu
  483. #
  484.  
  485. Menu -n    $gnuplotMenu -p GPLT::gnuplotMenuProc    {
  486.     "gnuplotHomePage"
  487.     "gnuplotHelp"
  488.     "/S<U<BswitchTo gnuplot"
  489.     "/Q<Uquit gnuplot"
  490.     "(-"
  491.     "/1<Bconsole"
  492.     "/2<Bgraph"
  493.     "/3<Bhistory"
  494.     "(-"
  495.     "<E<SgraphButton"
  496.     "<S<OkillGraphButton"
  497.     "setWorkingFolder…"
  498.     "/P<UchoosePlotFile…"
  499.     "/L<Uload…"
  500.     {Menu -n "saveSettings" -p GPLT::gnuplotMenuProc  {
  501.     "/S<Uall"
  502.     "(-"
  503.     "setCmds" 
  504.     "functions"
  505.     "variables"
  506.     }}
  507.     "(-"
  508.     "/N<UnewScriptWin"
  509.     "/F<UsaveAndExecute"
  510.     "(-"
  511.     {Menu  -s -m -n mathFunctions -p GPLT::gnuplotMenuProc  {
  512.     {Menu  -s -m -n Trigonometric -p GPLT::gnuplotMenuProc  {
  513.         "cos"
  514.         "tan"
  515.         "sin"
  516.     }}
  517.     {Menu  -s -m -n InverseTrig -p GPLT::gnuplotMenuProc  {
  518.         "acos"
  519.         "asin"
  520.         "atan"     
  521.     }}
  522.     {Menu  -s -m -n Hyperbolic -p GPLT::gnuplotMenuProc  {
  523.         "cosh"
  524.         "sinh"
  525.         "tanh"
  526.     }}
  527.     {Menu  -s -m -n special -p GPLT::gnuplotMenuProc  {
  528.         "erf"
  529.         "erfc"
  530.         "inverf"
  531.         "(-"
  532.         "gamma"
  533.         "igamma"
  534.         "lgamma"
  535.         "(-"
  536.         "ibeta"
  537.     }}
  538.     {Menu  -s -m -n bessel -p GPLT::gnuplotMenuProc  {
  539.         "besj0"
  540.         "besj1"
  541.         "besy0"
  542.         "besy1"     
  543.     }}
  544.     "(-"
  545.     "abs"
  546.     "arg"
  547.     "sgn"
  548.     "sqrt"
  549.     "(-"
  550.     "exp"
  551.     "log"
  552.     "log10"
  553.     "(-"
  554.     "ceil"
  555.     "floor" 
  556.     "rand"
  557.     "norm"
  558.     "invnorm"
  559.     "(-"
  560.     "real" 
  561.     "imag"
  562.     "int"
  563.     }}
  564.     "(-"
  565.     "/M<UdoSelection"
  566.     "doLine"
  567.     "(-"
  568.     {Menu -n gnuplotOptions -p GPLT::gnuplotMenuProc     {
  569.     "setPointSize…"
  570.     "(-"
  571.     "/H<UclearHistory"
  572.     "(-"
  573.     {Menu -n setOutputCreator -p GPLT::gnuplotMenuProc     {
  574.         "select…"
  575.         "add…"
  576.         "delete…"
  577.     }}
  578.     }}
  579. }
  580.  
  581. proc GPLT::gnuplotMenuProc {menu item} {
  582.     
  583.     global GPLTmodeVars
  584.  
  585.     switch $item {
  586.         "add"                           { GPLT::addCreator }
  587.         "all"                           { GPLT::saveSettings "" }
  588.         "choosePlotFile"                { GPLT::choosePlotFile }
  589.         "clearHistory"                  { GPLT::clearHistory }
  590.         "console"                       { GPLT::console }
  591.         "delete"                        { GPLT::deleteCreator }
  592.         "doLine"                        { GPLT::doLine }
  593.         "doSelection"                   { GPLT::doSelection }
  594.         "functions"                     { GPLT::saveSettings "fun" }
  595.         "gnuplot"                       { GPLT::activate }
  596.         "gnuplotHelp"                   { package::helpFile "GPLT" }
  597.         "gnuplotHomePage"               { url::execute $GPLTmodeVars(gnuplotHomePage)}
  598.         "graph"                         { GPLT::activate }
  599.         "graphButton"                   { GPLT::killGraphButton ; GPLT::graphButton 1 } 
  600.         "gxText"                        { GPLT::dialog "gxtx" }
  601.         "history"                       { GPLT::dumpHistory }
  602.         "killGraphButton"               { GPLT::killGraphButton }
  603.         "labels"                        { GPLT::dialog "labl" }
  604.         "labels"                        { GPLT::dialog "labl" }
  605.         "line styles"                   { GPLT::dialog "line" }
  606.         "load"                          { GPLT::loadScript }
  607.         "newScriptWin"                  { GPLT::newWindow }
  608.         "offsets"                       { GPLT::dialog "oset" }
  609.         "quitgnuplot"                   { GPLT::quit }
  610.         "saveAndExecute"                { GPLT::saveAndExecute }
  611.         "select"                        { GPLT::selectCreator }
  612.         "setCmds"                       { GPLT::saveSettings "set" }
  613.         "setPointSize"                  { GPLT::setPTSZ }
  614.         "setWorkingFolder"              { GPLT::setCWD }
  615.         "switchTognuplot"               { GPLT::activate }
  616.         "text format"                   { GPLT::dialog "text" }
  617.         "variables"                     { GPLT::saveSettings "var" }
  618.         default                         {
  619.             insertText [string tolower $item ] ()
  620.             backwardChar
  621.         }
  622.     }
  623. }
  624.  
  625. # ===========================================================================
  626. # 
  627. # ◊◊◊◊ Event Handlers ◊◊◊◊ #
  628. # 
  629.  
  630. # ===========================================================================
  631. #
  632. #  setup the event handler for Alpha/gnuplot interapp communication
  633. #  This file only works with Alpha 7.0 or newer so we assume
  634. #  eventHandling actually works.
  635. #
  636.  
  637. # Setup event Handler for STDOUT
  638. eventHandler GPSE OUTP "GPLT::sTDOUThandler"
  639.  
  640. # Setup event Handler for systems w/o ThreadManager
  641. eventHandler GPSE ERRP "GPLT::sTDERRhandler"
  642.  
  643. # *ICInitializeCommand // This initializes the console.
  644. # Alpha eventhandler is needed.
  645. # 'GPIC init'
  646. eventHandler GPIC init "GPLT::consoleH"
  647. #
  648. # *ICInitializePath // sends the working directory as
  649. # stored in preferences.
  650. # Since you aren't displaying the working directory anywhere,
  651. # we can ignore
  652. # this for now.
  653. # 'GPIC path', contains a string in the direct object.
  654. eventHandler GPIC path "GPLT::sendPath"
  655. #
  656. # ICExecute // Tells the console to execute a gnuplot command.
  657. # I can't think
  658. # of a reason for this one in Alpha.  The menuing system uses
  659. # this one in the current console.  We could define an event however.
  660. #
  661. # ICInsertCommand // Might be slick.  An example of what this
  662. # does is where
  663. # functions get pasted into the command line.  Not absolutely necessary
  664. # though.
  665. # 'GPIC' 'inse'
  666. eventHandler GPIC inse "GPLT::iNSEhandler"
  667. #
  668. # ICComeToFront  // The function will bring Alpha to the front.
  669. # No handler needed.
  670. #
  671. # *ICBringGnuplotToFront // Handler needed.  When you get this one, bring
  672. # gnuplot to the front.
  673. # 'GPIC tofr'
  674. eventHandler GPIC tofr "GPLT::activateH"
  675. #
  676. # *ICHandleAEReply // You'll get this one if somebody used a
  677. # gnuplot menu to
  678. # do something which necessitated a reply from gnuplot. The
  679. # gnuplot interface
  680. # will pass the reply to you for display.
  681. # 'GPIC repl', handle this one just like the reply from your exec event.
  682. eventHandler GPIC repl "GPLT::sTDERRhandler"
  683. #
  684. # *ICMakeNewDocument  // It sounds like this one is working already.
  685. # 'core crel'
  686. eventHandler core crel "GPLT::newWindowH"
  687. #
  688. # *ICOpenDocument // Alpha already knows about this one.
  689. # --already defined in alpha---
  690.  
  691. # The event 'GPIC' 'cbye' is now sent whenever gnuplot quits.
  692. # This will let you close the console if somebody quits
  693. # gnuplot some other way. You could
  694. # use this to eliminate your 'quit' trapping if you want.
  695. eventHandler GPIC cbye "GPLT::closeH"
  696. # I also defined a new event: 'GPIC' 'EXEC'.  All you need to
  697. # do is take the
  698. # data and send it back to gnuplot as a 'GPSE' 'exec' event.
  699. # This is a kludge
  700. # to make the commands in the gnuplot app menus work.
  701. # It will eventually go away.
  702. eventHandler GPIC EXEC "GPLT::kludge"
  703.  
  704. proc GPLT::kludge {it} {
  705.     set outit  [GPLT::filtercurlyq $it]
  706.     GPLT::sTDERR $outit
  707.     if { $it == "Unable to find process" } GPLT::quit
  708.     return 0
  709. }
  710.  
  711. proc GPLT::sTDERRhandler {it} {
  712.     global gp_cwd
  713.     set outit  [GPLT::filtercurlyq $it]
  714.     GPLT::extractPath $it
  715.     GPLT::results $outit
  716.     if { $it == "Unable to find process" } GPLT::quit
  717.     return 0
  718. }
  719.  
  720. proc GPLT::sTDOUThandler {it} {
  721.     global gp_cwd gp_Out gpTermCt
  722.     global gp_Console gp_Graph
  723.     global GPLTmodeVars gp_Launched gp_GEOM
  724.     global gp_Prompt  gp_cwd gnuplotMenu
  725.     
  726.     set outit  [GPLT::filtercurlyq $it]
  727.     GPLT::extractPath $it
  728.     set wins [winNames]
  729.     
  730.     set itLen [ string length "$it" ]
  731.     set termID [ string range "$outit" 0 20 ]
  732.     set termType [ string range "$it" [expr $itLen -25] [expr $itLen -1] ]
  733.     
  734.     if { [ string first "Sorry," "$termID" ] == 0 } {
  735.     insertText -w  $gp_Console "\n$outit"
  736.     return
  737.  
  738.     } elseif { [ string first "% GNUPLOT: LaTeX" "$termID" ] == 0 } {       
  739.     incr gpTermCt 1
  740.     # set gp_Out [getline "Enter name of output console?" "* TeX output $gpTermCt *" ]
  741.     set gp_Out "* TeX output $gpTermCt *"
  742.     set theMode "TeX"
  743.  
  744.     } elseif { [string first "%!PS-Adobe" "$termID" ] == 0 } {
  745.     incr gpTermCt 1
  746.     # set gp_Out [getline "Enter name of output console?" "* PS output $gpTermCt *" ]
  747.     set gp_Out "* PS output $gpTermCt *"
  748.     set theMode "PS"
  749.  
  750.     } elseif { [string first "<MIFFile 3.00>" "$termID" ] == 0 } {
  751.     incr gpTermCt 1
  752.     # set gp_Out [getline "Enter name of output console?" "* MIF output $gpTermCt *" ]
  753.     set gp_Out "* MIF output $gpTermCt *"
  754.     set theMode "PS"
  755.  
  756.     } elseif { [string first "% GNUPLOT: dxf" "$termID" ] >= 0 } {
  757.     incr gpTermCt 1
  758.     # set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  759.     set gp_Out "* misc output $gpTermCt *"
  760.     set theMode "TEXT"
  761.  
  762.     } elseif { [string first "if unknown cmbase" "$termID" ] == 0 } {
  763.     incr gpTermCt 1
  764.     # set gp_Out [getline "Enter name of output console?" "* MF output $gpTermCt *" ]
  765.     set gp_Out "* MF output $gpTermCt *"
  766.     set theMode "TeX"
  767.  
  768.     } elseif { [string first "#Curve" "$termID" ] == 0 } {
  769.     incr gpTermCt 1
  770.     # set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  771.     set gp_Out"* misc output $gpTermCt *"
  772.     set theMode "TEXT"
  773.  
  774.     } elseif { [ string index "$termID" 0  ] == " " && [ string first "TERM:“dumb”" "$termType" ] > 0 } {
  775.     set ns "\n"
  776.     append ns $outit
  777.     set outit "$ns"
  778.     set gp_Out $gp_Console
  779.     # set theMode "TEXT"
  780.  
  781.     } elseif { ![info exists gp_Out ] || [lsearch $wins $gp_Out ] < 0 } {
  782.     incr gpTermCt 1
  783.     # set gp_Out [getline "Enter name of output console?" "* misc output $gpTermCt *" ]
  784.     set gp_Out "* misc output $gpTermCt *"
  785.     set theMode "TEXT"
  786.     }
  787.     
  788.     if { $gp_Out == "" } {set gp_Out $gp_Console }
  789.     
  790.     if {  [lsearch $wins $gp_Out ]  < 0 } {
  791.     new  -n $gp_Out -m $theMode
  792.     # set wins [winNames]
  793.     set gp_Out [lindex [winNames] 0]
  794.     } else {
  795.     # catch [ bringToFront $gp_Out ] ans
  796.     # if { ![info exists ans] } { return }
  797.     }
  798.     
  799.     insertText -w $gp_Out $outit
  800.     GPLT::console
  801.     if { $it == "Unable to find process" } GPLT::quit
  802.     return 0
  803. }
  804.  
  805. proc GPLT::iNSEhandler {it} {
  806.     global gp_Console gp_TYPE gp_CREA GnuplotSig
  807.     set res [GPLT::filtercurlyq $it]
  808.     set wins [winNames]
  809.     if { ( "$res" != "\n" ) && ( "$res" != "" ) && ( "$res" != "\r" ) } {
  810.     if { [ lsearch $wins $gp_Console  ] >= 0} {
  811.         bringToFront $gp_Console
  812.     }
  813.     }
  814.     
  815.     goto [maxPos]
  816.     insertText -w $gp_Console $res
  817.     
  818.     
  819.     set paren  [string first "()" $res ]
  820.     
  821.     if { $paren >= 1 } {
  822.     goto [pos::math [maxPos] - $paren + 2]
  823.     }
  824.     
  825.     if { "$res" == "\r" }  {
  826.     GPLT::sendCommand "" 3600
  827.     } elseif { "$res" == "\n" }  {
  828.     GPLT::sendCommand "" 3600
  829.     } elseif { "$res" == "" }  {
  830.     GPLT::sendCommand "" 3600
  831.     } else {
  832.     return 0
  833.     }
  834.     
  835.     
  836. }
  837.  
  838. # ===========================================================================
  839. #
  840. #  Send a command to gnuplot
  841. #
  842.  
  843. proc GPLT::sendCommand { mycommand tmout} {
  844.     global GPLTmodeVars gnuplotMenu  gp_CommandHist gp_Rsp  gp_CommandNum
  845.     global gp_Prompts gp_Launched
  846.     
  847.     watchCursor
  848.     #    GPLT::console
  849.     
  850.     set tmout 300
  851.     # display command on the last line of the console if its not already there
  852.     GPLT::dispCommand "$mycommand"
  853.     if { [string trim $mycommand '\r'] != {} } {
  854.     GPLT::addToHist $mycommand
  855.     }
  856.     
  857.     # send gnuplot a command
  858.     # display the stderr results on the screen
  859.     # The eventHandler above will display the stdout results first
  860.     set stderr [GPLT::sTDERR "$mycommand\r"  $tmout ]
  861.     
  862.     # Null stderr can mean two things.
  863.     #   (1) a pause
  864.     #   (2) if no thread manager available, it could mean go back
  865.     #       and retrieve the stderr which will help 68k systems
  866.     #       work since eventHandler is broken in 6.01
  867.     
  868.     # This can probably be cleaned up with a little effort
  869.     # What I'm doing in the next line is taking care of the
  870.     # non-threaded macs...
  871.     # which always return "".  Its harmless otherwise.
  872.     # if {$stderr == ""  && $mycommand != "" } { set stderr [GPLT::sTDERR "" $tmout ] }
  873.     # if { $GPLTmodeVars(EventHandler) == "0" &&  $stderr == "" } { set stderr "gnuplot> " }
  874.     if { $stderr != "" } {
  875.     GPLT::results     "$stderr"
  876.     } else {
  877.     # GPLT::results ""
  878.     }
  879.     
  880.     blink [getPos]
  881. }
  882.  
  883. proc GPLT::sendPath { dummyVar } {
  884.     global gp_cwd
  885.     # display current path on status bar
  886.     set gp_cwd [ GPLT::filtercurlyq $dummyVar ]
  887.     message "Current gnuplot Path ==> $gp_cwd"
  888. }
  889.  
  890. proc GPLT::consoleH { dummyVar } {
  891.     GPLT::console
  892.     # this is a dummy routine
  893. }
  894.  
  895. proc GPLT::newWindowH { dummyVar } {
  896.     switchTo 'ALFA'
  897.     GPLT::newWindow
  898.     # this is a dummy routine
  899. }
  900.  
  901. proc GPLT::activateH { dummyVar } {
  902.     GPLT::activate
  903.     # this is a dummy routine
  904. }
  905.  
  906. proc GPLT::closeH { dummyVar } {
  907.     GPLT::quit
  908.     # this is a dummy routine
  909. }
  910.  
  911. # ===========================================================================
  912. #
  913. #  Find and launch gnuplot
  914. #
  915.  
  916. proc GPLT::check {} {
  917.     global gnuplotMenu gp_Launched GPLTmodeVars
  918.     
  919.     # Check if gnuplot app is running.  If not, open the app named in
  920.     # $ (if defined) or have the user select an app via a
  921.     # standard file dialog.  Leave the gnuplot app in the background.
  922.     
  923.     if {![catch {app::launchAnyOfThese {GPSE GPLT} GnuplotSig}]} {
  924.     set gp_Launched 1
  925.     enableMenuItem $gnuplotMenu "quit gnuplot" on
  926.     enableMenuItem $gnuplotMenu "graph" on
  927.     enableMenuItem $gnuplotMenu "history" on
  928.     enableMenuItem $gnuplotMenu "saveSettings" on
  929.     enableMenuItem gnuplotOptions "setPointSize…" on
  930.     enableMenuItem $gnuplotMenu "setWorkingFolder…" on
  931.     enableMenuItem $gnuplotMenu "choosePlotFile…"     on
  932.     return 0
  933.     } else {
  934.     return -1
  935.     }
  936. }
  937.  
  938. # ===========================================================================
  939. #
  940. # ◊◊◊◊ Console ◊◊◊◊ #
  941. #
  942.  
  943. # ===========================================================================
  944. #
  945. #  Goto command window
  946. #
  947.  
  948. proc GPLT::console {  } {
  949.     global gp_Console  GPLTmodeVars
  950.     global gp_Launched gp_Prompt
  951.     
  952.     # Check if gnuplot app is running.  If not, open the app named in
  953.     # $ (if defined) or have the user select an app via a
  954.     # standard file dialog.  Leave the gnuplot app in the background.
  955.     
  956.     set wins [winNames]
  957.     if { [lsearch $wins $gp_Console ]  >= 0} {
  958.     bringToFront $gp_Console
  959.     goto [maxPos]
  960.     } else   {
  961.     eventHandler GPIC cbye "GPLT::closeH"
  962.     GPLT::newConsole
  963.     }
  964. }
  965.  
  966. # ===========================================================================
  967. #
  968. #  Create  command window
  969. #
  970.  
  971. proc GPLT::newConsole { } {
  972.     global  gp_Console gp_Graph  gp_Path
  973.     global  GPLTmodeVars gp_Launched gp_GEOM GPLT::graphMenu
  974.     global gp_Prompt  gp_cwd gnuplotMenu  gp_home gp_scriptItems
  975.     
  976.     if {[llength $gp_GEOM] != "4" } {
  977.     new -n $gp_Console -m GPLT
  978.     set gp_GEOM [ getGeometry $gp_Console ]
  979.     }
  980.     set wd [lindex $gp_GEOM 2]
  981.     set ht [lindex $gp_GEOM 3]
  982.     set top [lindex $gp_GEOM 1]
  983.     set left [lindex $gp_GEOM 0]
  984.     set gY [expr $top - 15]
  985.     set gX [expr $left + $wd + 5]
  986.     set gW [expr 72 ]
  987.     set gH [expr 50 ]
  988.     
  989.     set wins [winNames]
  990.     if {  [lsearch $wins $gp_Console ]  < 0 } {
  991.     new -g $left $top $wd $ht -n $gp_Console -m GPLT
  992.     }
  993.     catch { setWinInfo -w $gp_Console shell 1 } jjj
  994.     GPLT::graphButton
  995.     if { $GPLTmodeVars(LiveHist) } GPLT::dumpHistory
  996.     insertText -w $gp_Console  "\nWelcome to Alpha's gnuplot 3.6 shell.\n"
  997.     GPLT::check
  998.     bringToFront $gp_Console
  999.     
  1000.     set res [ GPLT::sTDERR ""  3600 ]
  1001.     insertText -w $gp_Console "$res"
  1002.     
  1003.     # The following is a huge kludge...to deal with accidentally
  1004.     # closing the gnuplot window
  1005.     if    { $res == "" }    {
  1006.     GPLT::results "gnuplot> "
  1007.     }
  1008.     # end kludge
  1009.     
  1010.     # Now setup the CLIE
  1011.     if {[string first "Using threaded console."  $res ] != {-1} \
  1012.       | [string first "ppc" [string tolower $res ] ] != {-1}  } {
  1013.     set ress [GPLT::sTDERR "" 3600 ]
  1014.     }
  1015.     
  1016.     set gp_home "$gp_cwd"
  1017.     append gp_home "Scripts:*"
  1018.     
  1019.     
  1020.     set cdir [pwd]
  1021.     set gp_Path "$gp_home"
  1022.     
  1023.     GPLT::rebuildScriptMenu
  1024.     cd "$cdir"
  1025.     
  1026.     set gp_home [string range "$gp_home" 0 [expr [string length "$gp_home" ] -2 ] ]
  1027.     message "Current gnuplot Path ==> $gp_cwd"
  1028.     
  1029. }
  1030.  
  1031. # ===========================================================================
  1032. #
  1033. #  Rebuild the script menu
  1034. #
  1035.  
  1036. proc GPLT::rebuildScriptMenu {} {
  1037.     global gp_cwd GPLT::graphMenu gp_scriptItems gp_openItems gp_Path
  1038.     
  1039.     set gp_scriptItems [list]
  1040.     set gp_openItems [list]
  1041.     set gp_home "$gp_Path"
  1042.     
  1043.     set gp_sl [ GPLT::scriptList "$gp_home" "Scripts" ]
  1044.     set gp_sm [concat Menu -m -n "Scripts" -p GPLT::scriptMenuItems [list "$gp_sl"]  ]
  1045.     
  1046.     # kill the current floating menu (if any)
  1047.     GPLT::killGraphButton
  1048.     
  1049.     Menu  -n "${GPLT::graphMenu}" -p gnuplotMenuItem [list \
  1050.       "gnuplot" \
  1051.       "(-" \
  1052.       {Menu -m -s -n "Settings" -p gnuplotMenuItem  {\
  1053.       "line styles…&" \
  1054.       "text format…&" \
  1055.       "labels…&" \
  1056.       "offsets…&" \
  1057.     }}\
  1058.     "(-" \
  1059.     "$gp_sm" \
  1060.     ]
  1061.   
  1062.   GPLT::graphButton
  1063. }
  1064.  
  1065. # ===========================================================================
  1066. #
  1067. #  Generate a new script window
  1068. #
  1069.  
  1070. proc GPLT::newWindow {} {
  1071.     set wname "Untitled.gp"
  1072.     new -n $wname -m GPLT
  1073.     GPLT::uFD
  1074.     insertText "#\r"
  1075.     setWinInfo -w $wname dirty 0
  1076. }
  1077.  
  1078. # ===========================================================================
  1079. #
  1080. #  Insert File Description---use Vince's if possible.
  1081. #      this used in creating new window and in dumping history list
  1082. #
  1083.  
  1084. proc GPLT::uFD { } {
  1085.     # catch {userFileDescription } ans
  1086.     # if {     $ans != ""    }  {
  1087.     insertText "#\r#\r#     " [join [mtime [now] long] ] "\r"
  1088.     nextLine
  1089.     #}
  1090.     endOfBuffer
  1091. }
  1092.  
  1093. # ===========================================================================
  1094. #
  1095. #  Tell gnuplot to quit
  1096. #
  1097.  
  1098. proc GPLT::quit {} {
  1099.     global gp_Console
  1100.     
  1101.     switchTo 'ALFA'
  1102.     set wins [winNames]
  1103.     if { [set winThere [lsearch $wins $gp_Console ] ] >= 0} {
  1104.     set name [lindex $wins $winThere]
  1105.     bringToFront $name
  1106.     killWindow
  1107.     }
  1108.     
  1109. }
  1110.  
  1111. # ===========================================================================
  1112. #
  1113. #  Switch to gnuplot
  1114. #
  1115.  
  1116. proc GPLT::activate {  } {
  1117.     global   GnuplotSig
  1118.     
  1119.     if { ![GPLT::check] } {
  1120.     switchTo \'$GnuplotSig\'
  1121.     }
  1122. }
  1123.  
  1124. # ===========================================================================
  1125. #
  1126. #  Filter curlyq's out of sting...We may need to be smarter
  1127. #    about this later
  1128. #
  1129.  
  1130. proc GPLT::filtercurlyq { it } {
  1131.     
  1132.     set from [string first "“" $it]
  1133.     set to [string first "”" $it]
  1134.     set ans [string range $it [expr $from + 1] [expr $to - 1] ]
  1135.     if { ![expr [string length $ans] -1 ] } {
  1136.     regexp -nocase {[a-z0-9]} $ans nans
  1137.     if {[info exists nans]} {
  1138.         set ans $nans
  1139.     } else {
  1140.         set ans ""
  1141.     }
  1142.  
  1143.     }
  1144.     
  1145.     return $ans
  1146. }
  1147.  
  1148. # ===========================================================================
  1149. #
  1150. #  Extract current gnuplot path from event reply
  1151. #
  1152.  
  1153. proc GPLT::extractPath { ans } {
  1154.     global gp_cwd
  1155.     
  1156.     # We need to be tricky since I'm not sure if Dave is sending the
  1157.     # path in an alis, or as a string
  1158.     #    regexp {“(.*)(”.*“)(.*)”} "$ans" dummy spec1 spec2 spec3
  1159.     
  1160.     set frst [ string first "PSTR:" "$ans" ]
  1161.     set lst [ string first "TERM:" "$ans" ]
  1162.     
  1163.     if { ($frst > 0) } {
  1164.     if { $lst <= 0 } { set lst [string length $ans ] }
  1165.     set ans [string range "$ans" $frst $lst ]
  1166.     regexp {“(.*)”} "$ans" dummy  spec3   spec1
  1167.     if {[info exists spec3]} {
  1168.         set ngp_cwd $spec3
  1169.         if {$ngp_cwd != "" } {
  1170.         set gp_cwd "$ngp_cwd"
  1171.         return 0
  1172.         } 
  1173.     }
  1174.     }
  1175.     
  1176.     regexp {«(.*)»} "$ans" dummy spec
  1177.     if {[info exists spec]} {
  1178.     set ngp_cwd [specToPathName $spec]
  1179.     if {$ngp_cwd != "" } {
  1180.         set gp_cwd "$ngp_cwd"
  1181.         return 0
  1182.     } 
  1183.     }
  1184. }
  1185.  
  1186. # ===========================================================================
  1187. #
  1188. #  Send a command to gnuplot and return stderr!
  1189. #
  1190.  
  1191. proc GPLT::sTDERR { mycommand tmout } {
  1192.     global  gp_cwd  GPLTmodeVars GnuplotSig gp_TYPE gp_CREA
  1193.     
  1194.     if { ! $GPLTmodeVars(EventHandler) } {
  1195.     catch { AEBuild -t $tmout -r \'$GnuplotSig\' GPSE  "exec" ---- \
  1196.       [curlyq $mycommand] {CREA:} "$gp_CREA" \
  1197.       {TYPE:} "$gp_TYPE" } ans
  1198.     } else {
  1199.     catch { AEBuild -t $tmout -r \'$GnuplotSig\' GPSE  "exec" ---- \
  1200.       [curlyq $mycommand] {CLIE:} "ALFA" {CREA:} "$gp_CREA" \
  1201.       {TYPE:} "$gp_TYPE" } ans
  1202.     }
  1203.     if { $ans == "Unable to find process"  }  GPLT::quit
  1204.     GPLT::extractPath $ans
  1205.     return [GPLT::filtercurlyq $ans]
  1206. }
  1207.  
  1208. # ===========================================================================
  1209. #
  1210. #  Save current window and execute it in GNUPLOT, just like GNUPLOT
  1211. #  command ;)
  1212. #
  1213.  
  1214. proc GPLT::saveAndExecute {} {
  1215.     
  1216.     if {[winDirty]} {save}
  1217.     
  1218.     # Get the path of the current window and it's name
  1219.     
  1220.     # Set the working directory to the current window's
  1221.     # current dir.
  1222.     set GPLTFilePath "cd \'\:"
  1223.     set GPLTFile [lindex [winNames -f] 0]
  1224.     set GPLTFP [file dirname $GPLTFile]
  1225.     append  GPLTFilePath  $GPLTFP ":\'"
  1226.     
  1227.     # use unix style file paths
  1228.     regsub -all ":" $GPLTFilePath {/} GPLTFilePath
  1229.     
  1230.     # get the load command ready...
  1231.     set scriptName  "load \'"
  1232.     append scriptName [file tail $GPLTFile] "\'"
  1233.     
  1234.     # Change current working directory to window's
  1235.     GPLT::sendCommand $GPLTFilePath 600
  1236.     
  1237.     # Do the script
  1238.     GPLT::sendCommand $scriptName 700
  1239. }
  1240.  
  1241. # ===========================================================================
  1242. #
  1243. #  Write results to command window
  1244.  
  1245. proc GPLT::results { res } {
  1246.     global gp_Console gp_cwd
  1247.     insertText -w "$gp_Console"  "\n" $res
  1248.     setWinInfo -w "$gp_Console" dirty 0
  1249.     message "Current gnuplot Path ==> $gp_cwd"
  1250. }
  1251.  
  1252. # ===========================================================================
  1253. #
  1254. #  Send line to GNUPLOT
  1255. #
  1256.  
  1257. proc GPLT::doLine {} {
  1258.     
  1259.     beginningOfLine
  1260.     set bol [getPos]
  1261.     endOfLine
  1262.     set eol [getPos]
  1263.     
  1264.     set scriptName [getText $bol $eol]
  1265.     GPLT::sendCommand $scriptName     800
  1266. }
  1267.  
  1268. # ===========================================================================
  1269. #
  1270. #  Send selection to GNUPLOT
  1271. #
  1272.  
  1273. proc GPLT::doSelection {} {
  1274.     # Break lines into separate commands.
  1275.     foreach sN [split [getSelect] "\r"] {
  1276.     GPLT::sendCommand $sN 900
  1277.     }
  1278.     
  1279. }
  1280.  
  1281. # ===========================================================================
  1282. #
  1283. #  Edit current window in GNUPLOT
  1284. #
  1285.  
  1286. proc GPLT::editFile {} {
  1287.     global GnuplotSig
  1288.     
  1289.     if { ![GPLT::check] } {
  1290.     set thisWin  [lindex [winNames] 0]
  1291.     if {[winDirty]} {
  1292.         if {[askyesno "Save '$thisWin'?"] == "yes"} {
  1293.         save
  1294.         } else {
  1295.         return
  1296.         } 
  1297.     }
  1298.     set thisWin  [lindex [winNames -f ] 0]
  1299.     killWindow
  1300.     if {![catch {sendOpenEvent -n \'$GnuplotSig\' $thisWin }]} {
  1301.         switchTo \'$GnuplotSig\' 
  1302.     }
  1303.     }
  1304. }
  1305.  
  1306. #
  1307. #  closeHook procedure so that gnuplot is quit
  1308. #  whenever the user closes the console window.  Also ask about
  1309. #  saving the history list when the console is closed.
  1310. #
  1311.  
  1312. proc GPLT::closeHook    {name} {
  1313.     global gnuplotMenu GPLTmodeVars PREFS modifiedArrayElements
  1314.     global gp_CreatorList gp_TypeList gp_Console gp_Graph gp_Hist
  1315.     global gp_CreatorNames gp_CommandNum gp_Launched GnuplotSig modifiedVars
  1316.     global gp_GEOM gp_HistGEOM modifiedVars
  1317.     
  1318.     if { [string first "$gp_Console" $name] == 0    } {
  1319.  
  1320.     if    {$gp_CommandNum != 0 && ! $GPLTmodeVars(NevrSavHist) } {
  1321.         GPLT::dumpHistory
  1322.         set ans [askyesno -c "Savegnuplot command History?" ]
  1323.     } else {    set ans "yes" }
  1324.  
  1325.     GPLT::offSet
  1326.     switch -exact [string tolower $ans] {
  1327.         "cancel"   { GPLT::console; return $result }
  1328.         "no"       { GPLT::clearHistory }
  1329.         "yes"       { 
  1330.         catch { setWinInfo -w $gp_Hist read-only 0 } jj
  1331.         catch { setWinInfo -w $gp_Hist dirty 1 } jj
  1332.         catch { bringToFront $gp_Hist } jj
  1333.         if { $jj == 0 } {
  1334.             catch { saveAs "history.gp" } jj
  1335.         }
  1336.         catch { setWinInfo -w $gp_Hist dirty 0 } jj
  1337.         catch { setWinInfo -w $gp_Hist read-only 1 } jj
  1338.         GPLT::clearHistory
  1339.         }
  1340.     }
  1341.     # end case
  1342.     #        if {$gp_Launched    !=    0 } {
  1343.     catch { sendQuitEvent \'$GnuplotSig\' } hhh
  1344.     lappend modifiedVars  GnuplotSig
  1345.     #            }
  1346.     set gp_Launched 0
  1347.     set wins [winNames]
  1348.     if { [lsearch $wins $gp_Hist  ]  >= 0} {
  1349.         bringToFront $gp_Hist
  1350.         killWindow
  1351.     }
  1352.     lappend modifiedVars   gp_GEOM
  1353.     lappend modifiedVars   gp_HistGEOM
  1354.  
  1355.     } elseif {[string first $gp_Hist    $name] == 0} {
  1356.     set wins [winNames]
  1357.     if { [lsearch $wins "$gp_Console" ]  >= 0} {
  1358.         set GPLTmodeVars(LiveHist) 0
  1359.     }
  1360.     }
  1361. }
  1362.  
  1363. # ===========================================================================
  1364. #
  1365. #  Redefine the deactivateHook procedure so that gnuplot is quit
  1366. #  whenever the user closes the console window.  Also ask about
  1367. #  saving the history list when the console is closed.
  1368. #
  1369.  
  1370. proc GPLT::deactivateHook    {name} {
  1371.     global  gp_Hist GPLTmodeVars gp_Console gp_Graph
  1372.     global  gp_GEOM gp_HistGEOM
  1373.     if    { [string first $gp_Hist $name] == 0    } {
  1374.     set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1375.     endOfBuffer
  1376.     } elseif {[string first "$gp_Console" $name] == 0} {
  1377.     set gp_GEOM [getGeometry "$gp_Console" ]
  1378.     }
  1379. }
  1380.  
  1381. # ===========================================================================
  1382. #
  1383. #  Redefine the activateHook procedure so that gnuplot is quit
  1384. #  whenever the user closes the console window.  Also ask about
  1385. #  saving the history list when the console is closed.
  1386. #
  1387.  
  1388. proc GPLT::activateHook    {name} {
  1389.     global  gp_Hist gp_Graph gp_Console modifiedArrayElements
  1390.     global  mode gp_cwd GPLTmodeVars mode gp_modflag gp_GEOM
  1391.     
  1392.     if    { [string first "$gp_Console" $name] == 0} {
  1393.     changeMode GPLT
  1394.     set gp_GEOM [ getGeometry "$gp_Console" ]
  1395.     } elseif    { [string first $gp_Hist $name] == 0} {
  1396.     set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1397.     }
  1398.     
  1399.     message "Current gnuplot Path ==> $gp_cwd"
  1400. }
  1401.  
  1402. # ===========================================================================
  1403. #
  1404. # ◊◊◊◊ Command History ◊◊◊◊ #
  1405. # 
  1406.  
  1407. # ===========================================================================
  1408. #
  1409. #  History goto match...
  1410. #
  1411.  
  1412. proc GPLT::histgotoMatch {} {
  1413.     set frst [lineStart [getPos] ]
  1414.     endOfLine
  1415.     set lst  [getPos]
  1416.     endOfBuffer
  1417.     beginningOfLine
  1418.     GPLT::sendCommand [getText $frst $lst ] 1000
  1419. }
  1420.  
  1421. # ===========================================================================
  1422. #
  1423. #  Display or rewrite "command" to command window
  1424. #  
  1425.  
  1426. proc GPLT::dispCommand {command} {
  1427.     global   gp_Prompts gp_cwd
  1428.     
  1429.     # This is ugly and probably not very efficient.
  1430.     
  1431.     set lst [maxPos]
  1432.     set boll [lineStart $lst]
  1433.     set curr [getPos]
  1434.     
  1435.     if {[pos::compare $curr >= $boll]} {   
  1436.     set bol [lineStart $curr]
  1437.     set eol [nextLineStart $curr]
  1438.     set text [getText $bol $eol]
  1439.     set ltext [getText $boll $lst]
  1440.     foreach gp $gp_Prompts {
  1441.         set c1 [string first $gp $ltext]
  1442.         set c2 [pos::diff $lst $boll]
  1443.         set c3 [string length $gp]
  1444.         set c4 [pos::diff $lst $curr]
  1445.         set c5 [string length $command]
  1446.         if { $c1 == 0 && [expr $c2 >= $c3 | $c4 >= $c5 ] } {
  1447.         if {[string first $command $text] == -1} {
  1448.             set a [pos::math $boll + [string length $gp] ]
  1449.             set b [string trim $command "\r\n"]
  1450.             replaceText $lst $a $b
  1451.         }
  1452.         }
  1453.     }
  1454.     }
  1455. }
  1456.  
  1457. # ===========================================================================
  1458. #
  1459. #  Add command to history list
  1460. #
  1461.  
  1462. proc GPLT::addToHist  { cmmd } {
  1463.     global gp_CommandHist gp_CommandNum gnuplotMenu
  1464.     global GPLT::console gp_Hist GPLTmodeVars
  1465.     
  1466.     enableMenuItem gnuplotOptions "clearHistory" on
  1467.     lappend gp_CommandHist $cmmd
  1468.     set gp_CommandNum [llength $gp_CommandHist]
  1469.     
  1470.     if { $GPLTmodeVars(LiveHist) } {
  1471.     # if history list active then append $cmmd on last line
  1472.     set wins [winNames]
  1473.     if { [lsearch $wins $gp_Hist ]  >= 0} {
  1474.         setWinInfo -w $gp_Hist dirty 1
  1475.         setWinInfo -w $gp_Hist  read-only 0
  1476.         insertText -w $gp_Hist "$cmmd\r"
  1477.         setWinInfo -w $gp_Hist  dirty 0
  1478.         setWinInfo    -w $gp_Hist  read-only 1
  1479.     } else {
  1480.         GPLT::dumpHistory
  1481.         bringToFront "$gp_Console"
  1482.     }
  1483.  
  1484.     }
  1485. }
  1486.  
  1487. # ===========================================================================
  1488. #
  1489. #  Clear History list
  1490. #
  1491.  
  1492. proc GPLT::clearHistory {} {
  1493.     global  gnuplotMenu gp_CommandHist gp_CommandNum  gp_Hist
  1494.     
  1495.     set gp_CommandHist [list]
  1496.     set gp_CommandNum "0"
  1497.     enableMenuItem gnuplotOptions "clearHistory" off
  1498.     set wins [winNames]
  1499.     if { [lsearch $wins $gp_Hist ] >= 0} {
  1500.     bringToFront $gp_Hist
  1501.     killWindow
  1502.     }
  1503. }
  1504.  
  1505. # ===========================================================================
  1506. #
  1507. #  Write History list into a window of its own.
  1508. #
  1509.  
  1510. proc GPLT::dumpHistory {} {
  1511.     global gp_CommandHist gp_CommandNum gp_Console
  1512.     global GPLTmodeVars gp_Console gp_Hist
  1513.     global gp_GEOM
  1514.     
  1515.     set wins [winNames]
  1516.     set nw [ llength $wins ]
  1517.     
  1518.     if { [lsearch $wins $gp_Hist ]  == -1} {
  1519.     set l [ expr [lindex $gp_GEOM 0] + 12 + [lindex $gp_GEOM 2] ]
  1520.     set t [ expr [lindex $gp_GEOM 1] + 65 ]
  1521.     set w 96
  1522.     set h [ expr [lindex $gp_GEOM 3] - 65 ]
  1523.     new -n $gp_Hist -g $l $t $w $h -m GPLT
  1524.     set gp_HistGEOM [getGeometry]
  1525.     GPLT::uFD
  1526.     set scriptName "# (<cr> to send to gnuplot)\r#-----\r"
  1527.     foreach word $gp_CommandHist  {append  scriptName  $word "\r" }
  1528.     insertText  -w $gp_Hist $scriptName
  1529.     setWinInfo dirty 0
  1530.     setWinInfo read-only 1
  1531.     } else {
  1532.     bringToFront $gp_Hist
  1533.     }
  1534. }
  1535.  
  1536. # ===========================================================================
  1537. #
  1538. # Navigation
  1539. # 
  1540.  
  1541. proc GPLT::prevCommand {} {
  1542.     global  gp_CommandHist gp_CommandNum gp_Hist gp_Prompt gp_MultiPrompt
  1543.     global  gp_ContPrompt gp_Console gp_Hist
  1544.     
  1545.     # enter only if cr in console window...
  1546.     set wins [winNames]
  1547.     if { [lsearch $wins "$gp_Console" ] == 0} {
  1548.  
  1549.     set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ] ]
  1550.     if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1551.         goto [pos::math [lineStart [getPos] ] + $ind + [string length $gp_Prompt] ]
  1552.     } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1553.         goto [pos::math [lineStart [getPos] ] + $ind +
  1554.         [string length $gp_Multiprompt] ]
  1555.     } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1556.         goto [pos::math [lineStart [getPos] ] + $ind + [string length $gp_Contprompt] ]
  1557.     } elseif { return }
  1558.  
  1559.     incr gp_CommandNum -1
  1560.     if {$gp_CommandNum < 0} {
  1561.         incr gp_CommandNum
  1562.         endOfLine
  1563.         return
  1564.     }
  1565.     set text [lindex $gp_CommandHist $gp_CommandNum]
  1566.     set to [nextLineStart [getPos] ]
  1567.     if {[lookAt [pos::math $to -1] ] == "\r"} {set to [pos::math $to -1]}
  1568.  
  1569.     replaceText [getPos] $to $text
  1570.     } elseif { [lsearch $wins $gp_Hist ]  == 0} {
  1571.  
  1572.     set limit [nextLineStart [nextLineStart [minPos]] ]
  1573.     if {[pos::compare [getPos] > $limit]} {
  1574.         set limit [pos::math [getPos] - 1]
  1575.     }
  1576.     select [lineStart $limit] [nextLineStart $limit]
  1577.     } else {
  1578.     previousLine
  1579.     }
  1580.     
  1581. }
  1582.  
  1583. proc GPLT::nextCommand {} {
  1584.     global  gp_CommandHist gp_CommandNum gp_Prompt gp_MultiPrompt
  1585.     global gp_ContPrompt gp_Console gp_Hist
  1586.     
  1587.     # enter only if cr in console window...
  1588.     set wins [winNames]
  1589.     if { [lsearch $wins "$gp_Console"  ]  == 0} {
  1590.  
  1591.     set text [getText [lineStart [getPos] ] [nextLineStart [getPos] ]]
  1592.     if {[set ind [string first $gp_Prompt $text] ] == 0} {
  1593.         goto [pos::math [lineStart [getPos] ] + $ind + 9]
  1594.     } elseif {[set ind [string first $gp_MultiPrompt $text] ] == 0} {
  1595.         goto [pos::math [lineStart [getPos] ] + $ind + 11]
  1596.     } elseif {[set ind [string first $gp_ContPrompt $text] ] == 0} {
  1597.         goto [pos::math [lineStart [getPos] ] + $ind + 3]
  1598.     } else  {
  1599.         endOfBuffer
  1600.         return
  1601.     }
  1602.  
  1603.     incr gp_CommandNum
  1604.     if {$gp_CommandNum > [llength $gp_CommandHist]} {
  1605.         incr gp_CommandNum -1
  1606.         return
  1607.     }
  1608.     set text [lindex $gp_CommandHist $gp_CommandNum]
  1609.     set to [nextLineStart [getPos] ]
  1610.     if {[lookAt [pos::math $to -1] ] == "\r"} {set to [pos::math $to -1]}
  1611.     replaceText [getPos] $to $text
  1612.     } elseif { [lsearch $wins $gp_Hist  ]  == 0} {
  1613.     set pos [getPos]
  1614.     if {[pos::compare $pos < [nextLineStart [minPos]]]} {
  1615.         set pos [nextLineStart [minPos]]
  1616.     }
  1617.     if {[pos::compare [nextLineStart $pos] != [maxPos]]} {
  1618.         select [nextLineStart $pos] [nextLineStart [nextLineStart $pos] ]
  1619.     }
  1620.     } else {
  1621.     # mv cusor down...
  1622.     nextLine
  1623.     }
  1624. }
  1625.  
  1626. # ===========================================================================
  1627. # 
  1628. # ◊◊◊◊ Additional Menu Support ◊◊◊◊ #
  1629. # 
  1630.  
  1631. # ===========================================================================
  1632. #
  1633. #  change behavior of modifyModeFlags
  1634. #
  1635.  
  1636. proc GPLT::modifyModeFlags {{title ""}} {
  1637.     global mode GPLTmodeVars gp_modflag PREFS gp_HistGEOM gp_GEOM
  1638.     global gnuplotMenu  gp_Graph gp_Console  gp_Hist gp_floatmenu
  1639.     
  1640.     set wins [winNames]
  1641.     if { [lsearch $wins "$gp_Console" ]  >= 0}  {
  1642.     set gp_GEOM [ getGeometry "$gp_Console" ]
  1643.     }
  1644.     
  1645.     if { [lsearch $wins $gp_Hist] >= 0 } {
  1646.     set gp_HistGEOM [ getGeometry "$gp_Hist" ]
  1647.     }
  1648.     
  1649.     set gp_modflag 1
  1650.     
  1651.     if { $GPLTmodeVars(LiveHist) } {
  1652.     set wins [winNames]
  1653.     if { [lsearch $wins "$gp_Console"  ]  >= 0} {
  1654.         GPLT::dumpHistory
  1655.     }
  1656.     } else {
  1657.     set wins [winNames]
  1658.     if {[lsearch $wins $gp_Hist  ]  >= 0} {
  1659.         bringToFront $gp_Hist
  1660.         killWindow
  1661.     }
  1662.     }
  1663.     if { $GPLTmodeVars(EventHandler) } {
  1664.     } else {
  1665.     set jj1 "The event handler is broken in Alpha (68k).
  1666.     set jj2 "You may need to disable event handling until it is fixed."
  1667.     alertnote $jj1 $jj2
  1668.     }
  1669.     if { $GPLTmodeVars(GraphButton) } {
  1670.     GPLT::graphButton
  1671.     } else {
  1672.     GPLT::killGraphButton
  1673.     }
  1674.     # This file is sourced when appropriate by Alpha,
  1675.     # it should not happen here.
  1676.     # catch {  source $PREFS:GPLTPrefs.tcl } jjj
  1677.     catch {    bringToFront "$gp_Console" } jjj
  1678. }
  1679.  
  1680. # ===========================================================================
  1681. #
  1682. #  Select creator from list
  1683. #
  1684.  
  1685. proc GPLT::selectCreator {} {
  1686.     global gp_CreatorNames  gp_CreatorList   gp_TypeList GPLTmodeVars
  1687.     global setOutputCreator modifiedArrayElements modifiedVars
  1688.     global gp_CREA gp_TYPE
  1689.     
  1690.     set crea [listpick -p "Select output file creator:" $gp_CreatorNames  ]
  1691.     set creator [lindex $gp_CreatorList [lsearch  $gp_CreatorNames $crea] ]
  1692.     set type [lindex $gp_TypeList [lsearch  $gp_CreatorNames $crea] ]
  1693.     if {$creator == {} } {
  1694.     set gp_CREA 'ALFA'
  1695.     set gp_TYPE 'TEXT'
  1696.     } else {
  1697.     set gp_CREA $creator
  1698.     set gp_TYPE $type
  1699.     }
  1700.     lappend modifiedVars  gp_TYPE
  1701.     lappend modifiedVars  gp_CREA
  1702.     lappend modifiedVars  gp_CreatorList
  1703.     lappend modifiedVars  gp_TypeList
  1704.     lappend modifiedVars  gp_CreatorNames
  1705. }
  1706.  
  1707. # ===========================================================================
  1708. #
  1709. #  Add creator to list from file dialog
  1710. #
  1711.  
  1712. proc GPLT::addCreator {} {
  1713.     global gp_CreatorNames  gp_CreatorList  gnuplotMenu gp_TypeList
  1714.     global GPLTmodeVars modifiedVars modifiedArrayElements
  1715.     global gp_CREA gp_TYPE
  1716.     
  1717.     set fname [getfile "Select file type for creator"]
  1718.     #  add to creator list
  1719.     if {[getFileType $fname]=="APPL"} {
  1720.     alertnote "Sorry, but that was an application. \rTry again."
  1721.     return
  1722.     }
  1723.     
  1724.     if {$fname != {}} {
  1725.     set nm [getline "What do you wish to call it?" [file tail $fname ] ]
  1726.     if {$nm != {} } {
  1727.         set gp_CREA  [getFileSig $fname]
  1728.         set gp_TYPE  [getFileType $fname]
  1729.         lappend gp_CreatorList  $gp_CREA
  1730.         lappend gp_TypeList     $gp_TYPE
  1731.         lappend gp_CreatorNames $nm
  1732.         enableMenuItem  setOutputCreator "Select…" on
  1733.         enableMenuItem  setOutputCreator "Delete…" on
  1734.         lappend modifiedVars  gp_TYPE
  1735.         lappend modifiedVars  gp_CREA
  1736.         lappend modifiedVars  gp_CreatorList
  1737.         lappend modifiedVars  gp_TypeList
  1738.         lappend modifiedVars  gp_CreatorNames
  1739.     }
  1740.     }
  1741.     
  1742.     
  1743. }
  1744.  
  1745. # ===========================================================================
  1746. #
  1747. #  Remove creator from list
  1748. #
  1749.  
  1750. proc GPLT::deleteCreator {} {
  1751.     global gp_CreatorNames gnuplotMenu gp_CreatorList  gp_TypeList
  1752.     global GPLTmodeVars modifiedVars modifiedArrayElements
  1753.     global gp_CREA gp_TYPE
  1754.     
  1755.     set crea [listpick -p "Select creator to be deleted:"  $gp_CreatorNames ]
  1756.     
  1757.     if {$crea != {}} {
  1758.     #  now remove this creator from both lists....
  1759.     set creatorInd [lsearch  $gp_CreatorNames $crea]
  1760.     set crea [ lindex $gp_CreatorList $creatorInd]
  1761.     set gp_CreatorNames [ lreplace $gp_CreatorNames $creatorInd $creatorInd ]
  1762.     set gp_CreatorList  [ lreplace $gp_CreatorList  $creatorInd $creatorInd ]
  1763.     set gp_TypeList     [ lreplace $gp_TypeList     $creatorInd $creatorInd ]
  1764.  
  1765.     if {$gp_CREA == $crea } {
  1766.         set gp_CREA 'ALFA'
  1767.         set gp_TYPE 'TEXT'
  1768.     }
  1769.     lappend modifiedVars  gp_TYPE
  1770.     lappend modifiedVars  gp_CREA
  1771.     lappend modifiedVars  gp_CreatorList
  1772.     lappend modifiedVars  gp_TypeList
  1773.     lappend modifiedVars  gp_CreatorNames
  1774.     }
  1775.     
  1776.     if {[llength $gp_CreatorList] == 0} {
  1777.     enableMenuItem  setOutputCreator "Select…" off
  1778.     enableMenuItem setOutputCreator "Delete…" off
  1779.     }
  1780. }
  1781.  
  1782. # ===========================================================================
  1783. #
  1784. #  Clear a few globals...
  1785. #
  1786.  
  1787. proc GPLT::clear {} {
  1788.     global PREFS  GPLTmodeVars
  1789.     global  gp_CreatorList gp_CreatorNames
  1790.     global gp_GEOM gp_HistGEOM modifiedVars
  1791.     global gp_CREA gp_TYPE
  1792.     
  1793.     if { [info exists gp_GEOM] } { set gp_GEOM [list] }
  1794.     if { [info exists gp_CreatorList] } { unset gp_CreatorList }
  1795.     if { [info exists gp_TypeList] } { unset gp_TypeList }
  1796.     if { [info exists gp_CreatorNames] } { unset gp_CreatorNames }
  1797.     if { [info exists gp_HistGEOM] } { unset gp_HistGEOM  }
  1798.     if { [info exists gp_CREA] } { unset gp_CREA  }
  1799.     if { [info exists gp_TYPE] } { unset gp_TYPE  }
  1800.     
  1801.     ensureset gp_CreatorList [list ALFA GPLT ]
  1802.     ensureset gp_TypeList [list TEXT TEXT ]
  1803.     ensureset gp_CreatorNames [list alpha gnuplot]
  1804.     ensureset gp_CREA ALFA
  1805.     ensureset gp_TYPE TEXT
  1806.     ensureset gp_GEOM [list]
  1807.     ensureset gp_HistGEOM [list ]
  1808.     
  1809.     if { [llength $gp_CreatorList] == 0 \
  1810.       || [llength $gp_CreatorList] != [llength $gp_CreatorNames] \
  1811.       || [llength $gp_CreatorList] != [llength $gp_TypeList]} {
  1812.     set gp_CreatorList [list]
  1813.     set gp_TypeList [list]
  1814.     set gp_CreatorNames [list]
  1815.     }
  1816.     
  1817.     lappend modifiedVars gp_CreatorNames gp_TypeList gp_CreatorList
  1818.     lappend modifiedVars gp_HistGEOM gp_GEOM
  1819.     lappend modifiedVars gp_TYPE gp_CREA
  1820.     # catch { source $PREFS:gnuplotMode.tcl } blah
  1821.     # catch { source $HOME:Tcl:Modes:gnuplotMode.tcl } blah
  1822. }
  1823.  
  1824. # ===========================================================================
  1825. #
  1826. #  run load scripts from scripts menu
  1827. #
  1828.  
  1829. proc GPLT::scriptMenuItems {menu item} {
  1830.     global gp_sl gp_home gp_scriptItems gp_Path  gp_openItems
  1831.     
  1832.     set men [string tolower $menu]
  1833.     set ite [string tolower $item]
  1834.     
  1835.     if { "$item" == "Rebuild Menu" } {
  1836.     set cdir [pwd]
  1837.     set sl [expr [string length $gp_Path ] - 2]
  1838.     cd [string range $gp_Path 0 $sl ]
  1839.     GPLT::rebuildScriptMenu
  1840.     cd "$cdir"
  1841.     return 0
  1842.     }
  1843.     
  1844.     foreach it $gp_scriptItems {
  1845.     if { [string match "cd \'*$men:\'; load \'*$men:$ite\'" [string tolower $it] ] } {
  1846.         GPLT::sendCommand "$it" 110
  1847.         return 0
  1848.     }  
  1849.     }
  1850.     
  1851.     # set men [string tolower [string range $menu 5 [string length $menu] ] ]
  1852.     
  1853.     # filter out the "• edit "  from the selected $menu $item
  1854.     set ite [string tolower [string range $item 7 [string length $item] ] ]
  1855.     
  1856.     foreach it $gp_openItems {
  1857.     if { [string match "*$men:$ite" [string tolower $it] ] } {
  1858.         edit "$it"
  1859.         changeMode GPLT
  1860.         return 0
  1861.     }  
  1862.     }
  1863. }
  1864.  
  1865. # ===========================================================================
  1866. #
  1867. #  Create floating menu
  1868. #
  1869.  
  1870. set GPLT::graphMenu "gnuplotGraph"
  1871.  
  1872. set gp_grmen [list "Menu  -n ${GPLT::graphMenu} -p gnuplotMenuItem" ]
  1873. lappend gp_grmen "gnuplot" "(-"
  1874.  
  1875. Menu -n ${GPLT::graphMenu} -p gnuplotMenuItem [concat "gnuplot"]
  1876.  
  1877. # ===========================================================================
  1878. #
  1879. #  Create a floating gnuplot graph button (Alpha 6.2 or higher)
  1880. #
  1881.  
  1882. proc GPLT::graphButton {{addButton "0"}} {
  1883.     global gp_floatmenu GPLT::graphMenu GPLTmodeVars 
  1884.     global gp_sl gp_Path gp_GEOM gp_FLTGEOM
  1885.     
  1886.     #    if {[llength $gp_FLTGEOM] != 2 } {
  1887.     if {[llength $gp_GEOM] == 4 } {
  1888.     set l [ expr [lindex $gp_GEOM 0] + 5 + [lindex $gp_GEOM 2] ]
  1889.     set t [ expr [lindex $gp_GEOM 1] - 20 ]
  1890.     set gp_FLTGEOM [list $l $t ]
  1891.     } else {
  1892.     set l 20
  1893.     set t 20
  1894.     }
  1895.     #    }  else {
  1896.     #          set l  [lindex $gp_FLTGEOM 0]
  1897.     #          set t  [lindex $gp_FLTGEOM 1]
  1898.     #    }
  1899.     
  1900.     if {$GPLTmodeVars(GraphButton) || $addButton} {
  1901.     if {[info exists gp_floatmenu]} {
  1902.         GPLT::killGraphButton
  1903.     }
  1904.     catch {
  1905.         set gp_floatmenu [float -m ${GPLT::graphMenu} -n "" -M -1 -z GPLT -l $l -t $t ]
  1906.     }
  1907.     }
  1908. }
  1909.  
  1910. # Call this now.
  1911.  
  1912. GPLT::graphButton
  1913.  
  1914. # ===========================================================================
  1915. #
  1916. #  Kill a floating gnuplot menu (Alpha 6.2 or higher)
  1917. #
  1918.  
  1919. proc GPLT::killGraphButton {} {
  1920.     global gp_floatmenu
  1921.     
  1922.     if {[info exists  gp_floatmenu]}  {
  1923.     catch {unfloat ${gp_floatmenu}}
  1924.     unset gp_floatmenu
  1925.     }
  1926. }
  1927.  
  1928. # ===========================================================================
  1929. #
  1930. #  Generate the script menu
  1931. #
  1932.  
  1933. proc GPLT::scriptList { sdir men } {
  1934.     global gp_scriptItems  gp_openItems
  1935.     
  1936.     if {"$men" == "Scripts" } {
  1937.     set sl [list "\(Rebuild Menu"]
  1938.     } else {
  1939.     set sl [list]
  1940.     }
  1941.     
  1942.     # get the list of text files in $sdir
  1943.     set gp_fl [ glob -nocomplain -types TEXT "$sdir"]
  1944.     set mdir [string range "$sdir" 0 [expr [string length "$sdir"] - 2 ] ]
  1945.     set rdir [string range "$mdir" 0 [expr [string length "$mdir"] -1 ] ]
  1946.     foreach f $gp_fl {
  1947.     set mitem [string range $f [expr 1 + [string last ":" "$f" ] ] [ string length "$f" ] ]
  1948.     # append mitem "&"
  1949.     if { $mitem != "" } {
  1950.         lappend sl "<E<S$mitem"
  1951.         lappend sl "<S<I• edit $mitem"
  1952.         lappend sl "<S<B• edit $mitem"
  1953.         lappend sl "<S<U• edit $mitem"
  1954.         lappend sl "<S<O• edit $mitem"
  1955.         lappend gp_scriptItems "cd \'$rdir\'; load \'$f\'"
  1956.         lappend gp_openItems "$f"
  1957.     }
  1958.     }
  1959.     
  1960.     # get the list of aliased directories in $sdir and
  1961.     # perform this operation again on subdirectories
  1962.     set dlist [ glob   -types fdrp -nocomplain "$sdir"]
  1963.     foreach d $dlist {
  1964.     set dn [string range $d [expr [string last ":" "$d" ] +1 ] [string length $d]   ]
  1965.     # set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  1966.     set sl [concat "$sl"  [concat " \{Menu -m -n" "\"$dn\"" -p GPLT::scriptMenuItems  " \{  "  ] ]
  1967.     set dnam $d
  1968.     append dnam "*"
  1969.     # set gp_ssl [ GPLT::scriptList "$dnam" $dn ]
  1970.     set gp_ssl [list "(ALIASED FOLDERS NOT WORKING YET"]
  1971.     set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  1972.     }
  1973.     
  1974.     # get the list of directories in $sdir and
  1975.     # perform this operation again on subdirectories
  1976.     set dlist [ glob -nocomplain  "$sdir:"]
  1977.     foreach d $dlist {
  1978.     set dn [string range $d 0 [expr [string last ":" "$d" ] - 1 ]  ]
  1979.     set dn [string range $dn [expr 1 + [string last ":" "$dn" ] ] [ string length "$dn" ] ]
  1980.     set sl [concat "$sl"  [concat " \{Menu -m -n" "\"$dn\"" -p GPLT::scriptMenuItems  " \{  "  ] ]
  1981.     set dnam $d
  1982.     append dnam "*"
  1983.     set gp_ssl [ GPLT::scriptList "$dnam" $dn ]
  1984.     set sl [ concat "$sl "  $gp_ssl " \}  \} " ]
  1985.     }
  1986.     
  1987.     return  $sl
  1988. }
  1989.  
  1990. # ===========================================================================
  1991. #
  1992. #  Load a script into gnuplot
  1993. #
  1994.  
  1995. proc GPLT::loadScript {} {
  1996.     global gp_cwd
  1997.     catch { cd "$gp_cwd" } hmm
  1998.     set GPLTFile [ getfile "Choose a script to load:" ]
  1999.     if { $GPLTFile != "" } {
  2000.     GPLT::sendCommand  "load \'$GPLTFile\'" 120
  2001.     }
  2002. }
  2003.  
  2004. # ===========================================================================
  2005. #
  2006. #  Tell gnuplot to save settings...
  2007. #
  2008.  
  2009. proc GPLT::saveSettings { what } {
  2010.     global  GPLTmodeVars gp_cwd gp_TYPE gp_CREA
  2011.     
  2012.     catch { cd "$gp_cwd" } hmm
  2013.     set tCREA $gp_CREA
  2014.     set tTYPE $gp_TYPE
  2015.     set gp_CREA {ALFA}
  2016.     set gp_TYPE {TEXT}
  2017.     set where [ putfile "Save current gnuplot settings" \
  2018.       [format "gnuplot%src.gp" [string toupper $what ] ] ]
  2019.     if { $where != "" } {
  2020.     GPLT::sendCommand "save $what \'$where\'" 130
  2021.     }
  2022.     set gp_CREA  $tCREA
  2023.     set gp_TYPE  $tTYPE
  2024. }
  2025.  
  2026. # ===========================================================================
  2027. #
  2028. #  Tell gnuplot where the current dir is...
  2029. #
  2030.  
  2031. proc GPLT::setCWD {} {
  2032.     set gp_cwd [ get_directory -p "Select gnuplot working folder"]
  2033.     if { $gp_cwd != "" } {
  2034.     GPLT::sendCommand "cd \'$gp_cwd\'" 140
  2035.     }
  2036. }
  2037.  
  2038. # ===========================================================================
  2039. #
  2040. #  Tell gnuplot to change the point size
  2041. #
  2042.  
  2043. proc GPLT::setPTSZ {} {
  2044.     GPLT::sendCommand " set pointsize [ getline "Enter point size" 1 ] " 150
  2045. }
  2046.  
  2047. # ===========================================================================
  2048. #
  2049. #  Choose a file to plot and write "plot 'filename'" on command line
  2050. #
  2051.  
  2052. proc GPLT::choosePlotFile { } {
  2053.     global gp_Console gp_cwd
  2054.     catch { cd "$gp_cwd" } hmm
  2055.     set plotfile [ getPathName "Choose a file to plot" 1 ]
  2056.     if { $plotfile != "" } {
  2057.     insertText -w "$gp_Console" "plot \'$plotfile\' "
  2058.     }
  2059. }
  2060.  
  2061. # ===========================================================================
  2062. #
  2063. #  Setup menu flags, etc ... assuming gnuplot is off
  2064. #
  2065.  
  2066. proc GPLT::offSet {} {
  2067.     global gnuplotMenu gp_CreatorList
  2068.     
  2069.     enableMenuItem gnuplotOptions "clearHistory" off
  2070.     enableMenuItem $gnuplotMenu "quit gnuplot" off
  2071.     enableMenuItem $gnuplotMenu "graph" off
  2072.     enableMenuItem $gnuplotMenu "history" off
  2073.     enableMenuItem $gnuplotMenu "saveSettings" off
  2074.     enableMenuItem gnuplotOptions "setPointSize…" off
  2075.     enableMenuItem $gnuplotMenu "setWorkingFolder…" off
  2076.     enableMenuItem $gnuplotMenu "choosePlotFile…"     off
  2077.     
  2078.     if {[llength $gp_CreatorList] == 0} {
  2079.     enableMenuItem  setOutputCreator "Select…" off
  2080.     enableMenuItem  setOutputCreator "Delete…" off
  2081.     }
  2082.     
  2083. }
  2084.  
  2085. # ===========================================================================
  2086. #
  2087. #  TEMPORARY JUNK
  2088. #
  2089.  
  2090. set gp_cwd "???"
  2091.  
  2092. proc aevt { hmm } {
  2093.     # dummy procedure to fool 68k into semi-working w/eventHandler....
  2094.     if { $hmm == "'GPLT::a'()" } {
  2095.     GPLT::activate
  2096.     } elseif {$hmm=="'GPLT::c'()" } {
  2097.     GPLT::results "gnuplot> "
  2098.  
  2099.     }
  2100. }
  2101.  
  2102. # ===========================================================================
  2103. #
  2104. #  Things to do in order to properly setup gnuplot mode menu
  2105. #
  2106.  
  2107. set gp_modflag 0
  2108. GPLT::offSet
  2109.  
  2110. set gp_fm_first 1
  2111.  
  2112. # ===========================================================================
  2113. #
  2114. #  Called from menu to handle dialogs in the server app
  2115. #
  2116.  
  2117. proc GPLT::dialog { ans } {
  2118.     global  GnuplotSig
  2119.     switchTo  \'$GnuplotSig\'
  2120.     AEBuild -t 3600 -r 'GPSE' GPLT "DIAG" ---- $ans
  2121.     switchTo 'ALFA'
  2122. }
  2123.  
  2124. # ===========================================================================
  2125. #
  2126. # ◊◊◊◊ Version History ◊◊◊◊ #
  2127. #
  2128. #       =======================================================
  2129. # 
  2130. # 0.1        8/1/95
  2131. # -----------------------------------------------
  2132. # Converted matlab.tcl to gnuplot.tcl
  2133. #
  2134. # 0.2        8/2/95
  2135. # -----------------------------------------------
  2136. # Added a "Switch to gnuplot" menu option
  2137. # Added Console modeVar                                    
  2138. # Added run in background modeVar            
  2139. # Command History mostly working in console.
  2140. # Cleaned things up a bit.
  2141. #
  2142. # 0.3        8/3/95
  2143. # -----------------------------------------------
  2144. # Console position remembered between sessions
  2145. #
  2146. # Enabled command history to be dumped to a window
  2147. # 
  2148. # 0.4        8/3/95
  2149. # -----------------------------------------------
  2150. # User specified colorizing through check pop-up menu in GNUc console.
  2151. #     You must quit alpha and restart to see the effects.  Also, you must
  2152. #     make sure that keywords and colors don't overlap.
  2153. #
  2154. # 1.0.1        8/8/95
  2155. # -----------------------------------------------
  2156. # Handles multiplot mode
  2157. # set output file CREATOR modeVar    (not yet)
  2158. # 
  2159. #
  2160. # 1.0.2        8/11/95
  2161. # -----------------------------------------------
  2162. # When console window is closed the gnuplot app is quit and user
  2163. #     is prompted to save the Alpha/gnuplot history
  2164. #
  2165. # Command-Dbl-Click anywhere between gnuplot prompts to select gnuplot output.
  2166. #     Nice if you send term output to the console.
  2167. #
  2168. # 1.0.3        8/12/95
  2169. # -----------------------------------------------
  2170. # Fixed bugs in closing console window
  2171. # Added wristwatch cursor while waiting for gnuplot
  2172. #
  2173. # 1.0.4        8/12/95
  2174. # -----------------------------------------------
  2175. # New modeVar to keep console "clean" 
  2176. #
  2177. # 1.0.5        8/16/95
  2178. # -----------------------------------------------
  2179. # Replaced 'dosc' w/AEBuild
  2180. # Added eventHandler  (thanks Dave)
  2181. # Dumped "clean" window since Pete will add this functionality to "new" in 6.0.2
  2182. #
  2183. # 1.0.6        8/17/95
  2184. # -----------------------------------------------
  2185. # Cleaned up several procs
  2186. # Quit now works properly
  2187. #
  2188. # 1.0        8/7/95
  2189. # -----------------------------------------------
  2190. # Now works with 3.6 (but not with 3.5)
  2191. # 
  2192. #       ============= Above were really beta's ====================
  2193. #
  2194. # 1.0        8/21/95  (these release numbers are backwards)
  2195. # -----------------------------------------------
  2196. # First working release     
  2197. #
  2198. # 1.1        8/22/95
  2199. # -----------------------------------------------
  2200. # Set output creators from gnuplot menu
  2201. # Quit Working properly once again
  2202. # Added ERRP eventHandler for those w/o the
  2203. # Thread Manager
  2204. #
  2205. # 1.2        8/23/95
  2206. # -----------------------------------------------
  2207. # Deal w/"pause -1"     properly
  2208. # cmd-dbl-click now works for all prompts
  2209. # Cleaned up set output creator
  2210. #
  2211. # 1.2.1        8/23/95
  2212. # -----------------------------------------------
  2213. # Now works with unthreaded 68k systems
  2214. # DoSelection works for multiple lines
  2215. #
  2216. # 1.2.2        8/23/95
  2217. # -----------------------------------------------
  2218. # Repaired help/prompting/etc which broke in
  2219. # 
  2220. # 1.2.3        8/27/95
  2221. # -----------------------------------------------
  2222. # Fixed a few prompt related items.
  2223. # I need to clean up the code a bit especially in the console output routines
  2224. #
  2225. # 1.2.4        8/28/95
  2226. # -----------------------------------------------
  2227. # I honestly don't recall
  2228. #
  2229. # 1.2.5        8/29/95
  2230. # -----------------------------------------------
  2231. # File type as well as creator settings in place
  2232. #
  2233. # 1.3        12/09/95                                                   
  2234. # -----------------------------------------------
  2235. # Should work with gnuplot app and
  2236. # Fixed an "unknown" bug---thanks Vince
  2237. # Files with gnuplot creator open in gnuplot mode
  2238. # Added several eventHandler's to work with the
  2239. # gnuplot's new personality module
  2240. # NOTE:  No longer supports the gnuplot server app, but I might add it
  2241. #     back in later...
  2242. #
  2243. # 1.3.1        12/14/95                                                   
  2244. # -----------------------------------------------
  2245. # Consolidated console and script editor modes.
  2246. # Supports server once again.   
  2247. # History dump working.......
  2248. #
  2249. # 1.3.2        12/15/95                                                   
  2250. # -----------------------------------------------
  2251. # History dump Really working this time.......
  2252. # Included a kludge eventHander: GPIC EXEC for Dave (temporary)
  2253. #
  2254. # 1.3.3        12/20/95                                                   
  2255. # -----------------------------------------------
  2256. # Added Live History window  
  2257. # Added a function sub-menu
  2258. #             
  2259. # 1.3.4        02/01/96                                                   
  2260. # -----------------------------------------------
  2261. # Added "iconic" graph window which switches to the gnuplot application
  2262. # Added a "gnuplot prefs" submenu
  2263. #
  2264. # 1.3.5        02/01/96                                                   
  2265. # -----------------------------------------------
  2266. # Some minor fixes to console routines
  2267. #  
  2268. # 1.3.6        02/26/96                                                   
  2269. # -----------------------------------------------
  2270. # Added graph button preference and repaired my broken closeHook procedure
  2271. #  
  2272. # 1.3.7        03/13/96                                                   
  2273. # -----------------------------------------------
  2274. # Added support for cwd display on message bar
  2275. #             
  2276. # 1.3.8        03/13/96                                                   
  2277. # -----------------------------------------------
  2278. # Re-arranged some code.  
  2279. #             
  2280. # 1.3.9        04/10/96                                                   
  2281. # -----------------------------------------------
  2282. # Keyword coloring editable from gnuplot pref menu.
  2283. # Gnuplot pref menu re-arranged
  2284. # This package should display the path on the message bar
  2285. #  
  2286. # 1.4.0        04/14/96                                                   
  2287. # -----------------------------------------------
  2288. # GPLT mode preferences accessable from
  2289. # config:currentmode:flags... menu
  2290. # Keyword coloring now works and is auto-sourced whenever GPTLPrefs.tcl is closed
  2291. # Reorganized and added to gnuplot menu
  2292. # Reorganized all mode specifice procedures and variable names
  2293. #  
  2294. # 1.4.1        04/15/96                                                   
  2295. # -----------------------------------------------
  2296. # Repaired broken quit and switchto menu options
  2297. #  
  2298. # 1.4.2        04/17/96
  2299. # -----------------------------------------------
  2300. # Let alpha do bookkeeping on globals
  2301. #  
  2302. # 1.4.3        04/24/96
  2303. # -----------------------------------------------
  2304. # Add trap for broken eventhandler on 68k
  2305. #  
  2306. # 1.4.4        04/26/96
  2307. # -----------------------------------------------
  2308. # Modify trap for broken eventhandler on 68k so that pause works correctly
  2309. #     and so that gnuplot can bring itself to the front
  2310. #  
  2311. # 1.5b1        07/02/96
  2312. # -----------------------------------------------
  2313. # Modify code so that it is compliant with the new mode conventions 
  2314. #     Pete added to 6.2 (see changes file).
  2315. # This script should still work for Alpha pre 6.2!
  2316. # Nifty self-installer!
  2317. #  
  2318. # 1.5b2        07/16/96
  2319. # -----------------------------------------------
  2320. #  Now works with Alpha 6.1 and higher.
  2321. #
  2322. # 1.5b3        07/18/96
  2323. # -----------------------------------------------
  2324. # Now works with Alpha 6.1 and higher.
  2325. # Added Floating menu...
  2326. #
  2327. # 1.5        10/22/96
  2328. # -----------------------------------------------
  2329. # Slight bug fixes
  2330. #
  2331. # 1.5.1        10/23/96
  2332. # -----------------------------------------------
  2333. # Added some more apple event and floating palatte options.
  2334. #
  2335. # 1.5.2        11/02/96
  2336. # -----------------------------------------------
  2337. # Attempt to fix ome context switching weirdness
  2338. #
  2339. # 1.5.3        11/02/96
  2340. # -----------------------------------------------
  2341. # See 1.5.2
  2342. #
  2343. # 1.5.4        11/05/96
  2344. # -----------------------------------------------
  2345. # Added terminal output windows for PS/TeX/MIF/etc.
  2346. #
  2347. # 1.5.5        11/06/96
  2348. # -----------------------------------------------
  2349. # Added a "Scripts" menu which auto loads any script in gnuplots
  2350. #     "Scripts" folder (or subfolder)
  2351. # Made terminal output window creation faster
  2352. #
  2353. # 1.5.6        11/07/96
  2354. # -----------------------------------------------
  2355. # Fixed a few floating menu buggers
  2356. #
  2357. # 1.5.7        11/13/96
  2358. # -----------------------------------------------
  2359. # Check OUTP event for "Sorry, " string so that help for unknown item
  2360. #     will be sent to console rather than a new output terminal page
  2361. #
  2362. # 1.5.8        12/05/96
  2363. # -----------------------------------------------
  2364. # plot '-' now works
  2365. # Pause in demo-mode works better
  2366. # Added option to rebuild scripts menu
  2367. #
  2368. # 1.5.9        12/05/96
  2369. # -----------------------------------------------
  2370. # Repaired broken pwd display
  2371. #
  2372. # 1.5.9b    12/10/96
  2373. # -----------------------------------------------
  2374. # Repaired broken scripts menu
  2375. # Added a "edit scripts" menu----eventually, this one will go away,
  2376. #     but the functionality will be retained
  2377. #
  2378. # 1.6        12/23/96
  2379. # -----------------------------------------------
  2380. # Floating palatte now very useful.  User can run a script by selecting
  2381. #     a script menu item, or edit the script by selecting the script menu
  2382. #     item with the option key held down
  2383. #
  2384. # 1.7-1.9     12/05/00
  2385. # -----------------------------------------------
  2386. # Various updates by Vince.
  2387. #
  2388. # 2.0     12/05/00
  2389. # -----------------------------------------------
  2390. # An update by Craig for distribution with Alpha 7.4.
  2391. # Added "graphButton/killGraphButton" to menu.
  2392. # Added a simple "plot" electric.
  2393. # 
  2394. # ===========================================================================
  2395.